package Infinite::Sequence::Pattern;
use base qw{Infinite::Sequence};

sub new {
    my( $class, @set ) = @_;
    bless { set => \@set }, $class
}

sub increment {
    my $this = shift;
    my $val = shift @{ $this->{set} };
    push @{ $this->{set} }, $val;
    $val
}

1
